home *** CD-ROM | disk | FTP | other *** search
/ Mac100% 1999 April / MAC100-1999-04.ISO.7z / MAC100-1999-04.ISO / ｵﾝﾗｲﾝｿﾌﾄ定点観測 / Network / お知らせをいつも v1.sit / お知らせをいつも v1 / ExNEW.aps next >
Text File  |  1999-01-31  |  689b  |  31 lines
  1. ************************
  2. * Jnifty by Ko Tsuneta *
  3. ************************
  4. *****************************
  5. * Read This Week's Announce *
  6. *****************************
  7. ***** 初期設定 *****
  8. * 曜日を指定 [日:1／月:2／火:3／水:4／木:5／金:6／土:7]
  9. * 複数を並べてもＯＫ [月水木:135]
  10.     set:$readweek$:
  11. * 時間帯を指定 [24時間表記／必ず2桁] [7時台:07／23時台:23]
  12.     set:$readtime$:
  13. ***** What Day of the Week? *****
  14.     week:#week#
  15.     strwhere:#num#:#week#:$readweek$
  16.     if:110:#num#==0
  17. ***** What Time? *****
  18.     time:$time$
  19.     strext:$time$:1:2:$time$
  20.     if:110:$time$<>$readtime$
  21. ***** Enter *****
  22.     s:GO NEW^m
  23.     r:^j＞
  24. ***** Read *****
  25.     s:ALL
  26. 100:
  27.     s:^m
  28.     r:終了^m^j＞|100:終了)^m^j＞|110:^j＞
  29. ***** End *****
  30. 110:
  31.